PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Education/MacHelp/MacHelp 3/MS File help/background_2677.txt

Text File | 1988-02-15 | 4.7 KB | 239 lines

-- background: 2677 from stack: in
-- bmap block id: 2142
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on openStack
  hide menubar
  push recent card
  hide message box
end openStack



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=280 top=247 right=274 bottom=305
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=253 top=247 right=274 bottom=279
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to previous card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=448 top=247 right=272 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=392 top=249 right=271 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  flash 2
  doMenu "New Card"
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=192 top=247 right=271 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go to card id 6343 of stack "MacHelp#3 Help"
end mouseUp




-- part 12 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=98 top=91 right=242 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Description


-- part 26 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=83 top=242 right=278 bottom=141
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go to card id 2943 of stack "MacHelp#3 Home"
end mouseUp




-- part 27 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=149 top=242 right=276 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp



-- part 29 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=309 top=243 right=276 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  Ask "Find what item ?"
  put it into Finding
  if it is empty then exit mouseup
  put false into Q
  repeat until Q
    find Finding
    repeat with x= 1 to 600
    end repeat
    answer "This one ?" with "Yes" or "No"
    if it is "Yes" then put true into Q
  end repeat
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=377 top=64 right=85 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Show MenuBar
----- HyperTalk script -----
on mouseUp
  show menubar
end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=94 top=65 right=83 bottom=195
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Compact Stack
----- HyperTalk script -----
on mouseUp
  put the size of this stack into var
  ANSWER "This stack takes this much space" with var
  put the freesize of this stack into var
  ANSWER "You are wasting this much space" with var
  if var > 0 then
    answer "Would you like to compact this stack?" with No or Yes
    if it is "yes"
    then domenu "compact stack"
  end if
end mouseUp